home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 9 / Big_Mouth_The_09_1996_-_Side_A.d64 / test run (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  47 lines
  1. 10 rem ** test racer **
  2. 20 poke 53280,5:poke 53281,11:poke 646,15
  3. 25 a=rnd(-ti)
  4. 30 p=15:r$=chr$(46):l$=chr$(44)
  5. 40 print chr$(147)
  6. 50 print:print tab(12);"** test racer **"
  7. 60 print" you are testing a new racing track in   your car"
  8. 70 print" press < to go left and > to go right"
  9. 80 print" if you go off the run, you will crash"
  10. 100 print"";tab(5);" press space to begin playing [146]"
  11. 110 get a$:if a$<>chr$(32) then 110
  12. 120 fort=1 to 1000:next
  13. 130 :
  14. 140 rem ** the game **
  15. 150 :
  16. 160 w=40
  17. 170 print""
  18. 180 t=w/2-p/2
  19. 190 c=w/2:z=1
  20. 200 print tab(t);" [146]";tab(c);"@@";tab(t+p);" [146]"
  21. 210 z=z+1:if z=1000 then 400
  22. 220 r=rnd(1)
  23. 230 if r<0.5 and t>2 then t=t-1
  24. 240 if r>0.5 and t+p<w-2 then t=t+1
  25. 250 get a$
  26. 260 if a$=l$ then c=c-1
  27. 270 if a$=r$ then c=c+1
  28. 280 if c<t then 310
  29. 290 if c>p+t then 310
  30. 300 goto 200
  31. 310 fort=1 to 255:poke 53270,39:poke 53270,40:next
  32. 320 print" ** ! you crashed ! **"
  33. 330 print" your score is";z
  34. 340 print" perfect score is 1000"
  35. 350 goto 440
  36. 400 print tab(t);"     finish     [146]"
  37. 410 fort=1 to 1000:next
  38. 420 print" well done you completed the run!"
  39. 430 print" you got the perfect score of 1000!"
  40. 440 print" do you wanna play again?"
  41. 450 get a$:if a$<>"" then 450
  42. 460 get a$:if a$="y" then 100
  43. 470 if a$<>"n" then 460
  44. 480 print" hope you had fun. bye!"
  45. 490 print" (loading menu)"
  46. 500 load"the main menu/bm",8,1
  47.